home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / awk / bits2str.awk < prev    next >
Text File  |  2005-10-13  |  327b  |  17 lines
  1. # bits2str --- turn a byte into readable 1's and 0's
  2.  
  3. function bits2str(bits,        data, mask)
  4. {
  5.     if (bits == 0)
  6.         return "0"
  7.  
  8.     mask = 1
  9.     for (; bits != 0; bits = rshift(bits, 1))
  10.         data = (and(bits, mask) ? "1" : "0") data
  11.  
  12.     while ((length(data) % 8) != 0)
  13.         data = "0" data
  14.  
  15.     return data
  16. }
  17.